home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_007_19xx_-_de_Disk_2_of_2_Side_B.d64 / musik-lg v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  83 lines
  1. 1 rem ****************
  2. 2 rem **  logiker   **
  3. 3 rem **    am      **
  4. 4 rem ** 3.okt.1993 **
  5. 5 rem ****************
  6. 10 print"[147] logiker [165] ** musiklehrprogramm v1.0 ** [146]"
  7. 11 print" dieses   programm   soll   es   ihnen"
  8. 12 print" ermoeglichen, noten zu lese. der user
  9. 13 [153]" soll faehig werden,  am c64 lieder zu
  10. 14 print" programmieren.
  11. 15 [153]" ich wuensche ihnen/dir
  12. 16 print"                viel erfolg
  13. 19 [161]b$:[139]b$[178]""[167]19
  14. 20 [153]"load1.  wie sehen die einzelnen noten aus? "
  15. 30 [153]"     then   thensin  thensin  thenfrefre(NULL)  thenfrefre(NULL)
  16. 40 print"     [167]   [167]   [167][191]  [167]  [167]  [167][184][184][208]
  17. 50 [153]"     then   then   then   then  then  then  then
  18. 60 print" [215]   [209]   [209]   [209]   [209]  [209]  [209]  [209]
  19. 70 [153]
  20. 80 [153]" a   b   c   d     e     f
  21. 90 print
  22. 100 print"a)  eine ganze note (zb.: 1 sekunde)
  23. 110 [153]"b)  eine halbe note (zb.: 1/2 sek.)
  24. 120 print"c)  eine viertel note ('' 1/4  '' )"
  25. 130 print"d)  eine achtel note ( '' 1/8  '' )
  26. 140 [153]"e)  zwei viertel noten( 2 mal 1/4 sek.) ";
  27. 150 [153]"f)  zwei achtel noten ( 2 mal 1/8 sek.)"
  28. 160 [153]
  29. 170 [153]"! ob die schwaenze nach oben oder unten sehen, ist egal.
  30. 180 get a$:if a$=""then 180
  31. 190 print"[147] 2. wo stehen sie und wie heissen sie?"
  32. 200 print"                               [164][213][201][164]
  33. 210 [153]"  tototototototototototototototototototototototototo(NULL)right$to(NULL)tomid$(NULL)
  34. 220 print"  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][213][201][164][215][164][202][203][164][164][164][164][164]
  35. 230 [153]"  tototototototototototototototo(NULL)right$to(NULL)tomid$(NULL)totototototototototo
  36. 240 print"  [164][164][164][164][164][164][164][164][164][164][213][201][164][215][164][202][203][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  37. 250 [153]"  tototototo(NULL)right$to(NULL)tomid$(NULL)totototototototototototototototototototo
  38. 260 print"  [213][201][164][215] [202][203]
  39. 270 [153]"  mid$(NULL)
  40. 280 print"  ^  ^ ^  ^ ^  ^ ^  ^ ^  ^ ^  ^ ^
  41. 290 [153]"  c4d4 e4f4 g4a4 h4c5 d5e5 f5g5 h5
  42. 300 print:print"die grossen noten  liegen auf,  die    kleinen  zwischen  den  5 linien
  43. 310 [153]"geht eine note ueber die linien hinaus, so  wird  die  linie   angedeutet.
  44. 320 print:print"steht ein kreuz # vor der note, so
  45. 330 [153]"erhoeht sich diese um einen halben ton. ein b erniedrigt diese.
  46. 340 getb$:ifb$=""then 340
  47. 350 print"[147] 3. nicht alles ist moeglich!               welche noten kann es geben?
  48. 360 [153]:[153]
  49. 365 [153]"fn    fn    fn    fn    fn    fn    fn    fn
  50. 370 print"[165]   c#   d#    [165]   f#   g#   a#    [165]
  51. 380 [153]"fn   bd   be    fn   bg   ba   bh    fn
  52. 390 print"[165]    [165]    [165]    [165]    [165]    [165]    [165]    [165]
  53. 400 [153]"fn    fn    fn    fn    fn    fn    fn    fn
  54. 410 print"[165]    [165]    [165]    [165]    [165]    [165]    [165]    [165]
  55. 420 [153]"fn c  fn d  fn e  fn f  fn g  fn a  fn h  fn
  56. 430 print"[204][164][164][164][164][204][164][164][164][164][204][164][164][164][164][204][164][164][164][164][204][164][164][164][164][204][164][164][164][164][204][164][164][164][186]
  57. 440 [153]
  58. 450 [153]"c# sprich ciswait, d# sprich dis, ...
  59. 460 print"bd sprich des[146], be sprich es, ..."
  60. 470 print:print"! das b muesste eigentlich kleinge-       schrieben sein."
  61. 480 print"  e#,bf und h#,bc kann es nicht geben.
  62. 485 [153]"  bei bh sprich b!
  63. 490 get a$:if a$=""then490
  64. 500 print"[147] 4. welche parameter benoetigt mein c64?
  65. 510 [153]" 1ste moeglichkeit:  verwenden sie die          tabelle im c64-handbuch
  66. 520 print" 2te moeglichkeit:  verwenden sie mein          notendef programm
  67. 530 [153]" 5. was ist ein oktav?
  68. 540 print" eine oktav beseht aus 12 noten (c,c#,   d,d#,e,f,f#,g,g#,a,a#,h).
  69. 550 [153]" es gibt jedoch verschiedene nummerier   moeglichkeiten:
  70. 560 print" a (siehe c64-handbuch):                            tiefste oktave  0
  71. 570 [153]"            hoechst oktave  7
  72. 580 print" b (international):                                 tiefste oktave -4
  73. 590 [153]"            hoechst oktave  3
  74. 595 getb$:if b$=""then 595
  75. 600 print"[147]  abschliessende fragen:
  76. 605 [153]"  1. aus welchen noten besteht eine       oktave?
  77. 610 print"  2. wie nummeriert man die oktaven       international?
  78. 615 [153]"  3. was bewierken die vorzeichen?
  79. 620 print"  4. welche noten gibt es?
  80. 630 [153]"  5. wo stehen welche noten (z.b. a1,     cis1,es2,...)?
  81. 695 getb$:if b$=""then 695
  82. 1000 print"[147]":sys 42115
  83.